object FEmanuel: TFEmanuel
  Left = 261
  Top = 178
  Width = 690
  Height = 477
  Caption = 'FEmanuel'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 296
    Width = 138
    Height = 52
    Caption = 
      'wwwwwwwwwwwwwww'#13#10'22222222222222222222'#13#10'2222222222222222222222'#13#10'3' +
      '3333333333333333333333'
    Visible = False
  end
  object Button1: TButton
    Left = 24
    Top = 392
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 56
    Top = 264
    Width = 177
    Height = 25
    Caption = 'Gerar Pedido'
    TabOrder = 1
    OnClick = Button2Click
  end
  object ProgressBar1: TProgressBar
    Left = 8
    Top = 40
    Width = 321
    Height = 17
    TabOrder = 2
  end
  object Button3: TButton
    Left = 8
    Top = 8
    Width = 177
    Height = 25
    Caption = 'Gerar Mov Estoque'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 8
    Top = 128
    Width = 209
    Height = 33
    Caption = 'Gerar Arq Cabanga'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 288
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Button5'
    TabOrder = 5
    OnClick = Button5Click
  end
  object DBGrid1: TDBGrid
    Left = 288
    Top = 208
    Width = 377
    Height = 145
    DataSource = DataSource1
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button6: TButton
    Left = 376
    Top = 88
    Width = 75
    Height = 25
    Caption = 'FINK'
    TabOrder = 7
    OnClick = Button6Click
  end
  object Edit1: TEdit
    Left = 240
    Top = 128
    Width = 121
    Height = 21
    TabOrder = 8
    Text = 'Edit1'
  end
  object Query1: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select'
      'notafiscalvenda.nf_codigo,'
      'notafiscalvenda.nf_numeronf,'
      'contasreceber.cr_codigo,'
      'lancamento.lanc_codigo,'
      'notafiscalvenda.nf_cliente,'
      'notafiscalvenda.nf_valorfinalnota,'
      '((notafiscalvenda.nf_valorfinalnota'
      '-(notafiscalvenda.nf_valorfinalnota*5/100 ))'
      '- notafiscalvenda.nf_retencao) as VALOR_REIDI,'
      ''
      
        '((notafiscalvenda.nf_valorfinalnota) - notafiscalvenda.nf_retenc' +
        'ao) as VALOR'
      'from itensnotafiscalvenda'
      
        'inner join notafiscalvenda on (notafiscalvenda.nf_codigo = itens' +
        'notafiscalvenda.itensnf_notafiscal)'
      
        'inner join contasreceber on (notafiscalvenda.nf_numeronf = conta' +
        'sreceber.cr_notafiscalvenda)'
      
        'inner join lancamento on (lancamento.lanc_titulo = contasreceber' +
        '.cr_codigo)'
      'where'
      
        '  (notafiscalvenda.nf_dataemissao between '#39'09/01/2011 00:00:00'#39' ' +
        'and '#39'10/30/2011 23:59:59'#39')and'
      '  (contasreceber.cr_datatitulo >= '#39'09/01/2011 00:00:00'#39')and'
      
        '  (contasreceber.excluido = '#39'N'#39'OR contasreceber.excluido is null' +
        ' ) and'
      
        '  (notafiscalvenda.excluido = '#39'N'#39'OR notafiscalvenda.excluido is ' +
        'null )and'
      '  (lancamento.excluido = '#39'N'#39'OR lancamento.excluido is null )and'
      '  (contasreceber.cr_valor <> 0) and'
      '  (notafiscalvenda.codigoempresa = 1) and'
      '  (notafiscalvenda.nf_situacao = 1)')
    Left = 32
    Top = 104
  end
  object Table1: TTable
    DatabaseName = 'base'
    TableName = 'SALDO_NF_ITEM'
    Left = 16
    Top = 152
  end
  object Query2: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select'
      'notafiscalvenda.nf_codigo,'
      'notafiscalvenda.nf_numeronf,'
      'contasreceber.cr_codigo,'
      'lancamento.lanc_codigo,'
      'notafiscalvenda.nf_cliente,'
      'notafiscalvenda.nf_valorfinalnota,'
      '((notafiscalvenda.nf_valorfinalnota'
      '-(notafiscalvenda.nf_valorfinalnota*5/100 ))'
      '- notafiscalvenda.nf_retencao) as VALOR_REIDI,'
      ''
      
        '((notafiscalvenda.nf_valorfinalnota) - notafiscalvenda.nf_retenc' +
        'ao) as VALOR'
      'from itensnotafiscalvenda'
      
        'inner join notafiscalvenda on (notafiscalvenda.nf_codigo = itens' +
        'notafiscalvenda.itensnf_notafiscal)'
      
        'inner join contasreceber on (notafiscalvenda.nf_numeronf = conta' +
        'sreceber.cr_notafiscalvenda)'
      
        'inner join lancamento on (lancamento.lanc_titulo = contasreceber' +
        '.cr_codigo)'
      'where'
      
        '  (notafiscalvenda.nf_dataemissao between '#39'09/01/2011 00:00:00'#39' ' +
        'and '#39'10/30/2011 23:59:59'#39')and'
      '  (contasreceber.cr_datatitulo >= '#39'09/01/2011 00:00:00'#39')and'
      
        '  (contasreceber.excluido = '#39'N'#39'OR contasreceber.excluido is null' +
        ' ) and'
      
        '  (notafiscalvenda.excluido = '#39'N'#39'OR notafiscalvenda.excluido is ' +
        'null )and'
      '  (lancamento.excluido = '#39'N'#39'OR lancamento.excluido is null )and'
      '  (contasreceber.cr_valor <> 0) and'
      '  (notafiscalvenda.codigoempresa = 1) and'
      '  (notafiscalvenda.nf_situacao = 1)')
    Left = 96
    Top = 200
  end
  object Query3: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select'
      'notafiscalvenda.nf_codigo,'
      'notafiscalvenda.nf_numeronf,'
      'contasreceber.cr_codigo,'
      'lancamento.lanc_codigo,'
      'notafiscalvenda.nf_cliente,'
      'notafiscalvenda.nf_valorfinalnota,'
      '((notafiscalvenda.nf_valorfinalnota'
      '-(notafiscalvenda.nf_valorfinalnota*5/100 ))'
      '- notafiscalvenda.nf_retencao) as VALOR_REIDI,'
      ''
      
        '((notafiscalvenda.nf_valorfinalnota) - notafiscalvenda.nf_retenc' +
        'ao) as VALOR'
      'from itensnotafiscalvenda'
      
        'inner join notafiscalvenda on (notafiscalvenda.nf_codigo = itens' +
        'notafiscalvenda.itensnf_notafiscal)'
      
        'inner join contasreceber on (notafiscalvenda.nf_numeronf = conta' +
        'sreceber.cr_notafiscalvenda)'
      
        'inner join lancamento on (lancamento.lanc_titulo = contasreceber' +
        '.cr_codigo)'
      'where'
      
        '  (notafiscalvenda.nf_dataemissao between '#39'09/01/2011 00:00:00'#39' ' +
        'and '#39'10/30/2011 23:59:59'#39')and'
      '  (contasreceber.cr_datatitulo >= '#39'09/01/2011 00:00:00'#39')and'
      
        '  (contasreceber.excluido = '#39'N'#39'OR contasreceber.excluido is null' +
        ' ) and'
      
        '  (notafiscalvenda.excluido = '#39'N'#39'OR notafiscalvenda.excluido is ' +
        'null )and'
      '  (lancamento.excluido = '#39'N'#39'OR lancamento.excluido is null )and'
      '  (contasreceber.cr_valor <> 0) and'
      '  (notafiscalvenda.codigoempresa = 1) and'
      '  (notafiscalvenda.nf_situacao = 1)')
    Left = 216
    Top = 232
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\EMANUEL\Desktop\Invent'#225'rio 2009.xls;Extended Properties=E' +
      'xcel 8.0;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 416
    Top = 40
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from [Plan1$]'
    Parameters = <>
    Left = 456
    Top = 40
    object ADODataSet1F1: TDateTimeField
      FieldName = 'F1'
    end
    object ADODataSet1F2: TFloatField
      FieldName = 'F2'
    end
    object ADODataSet1F3: TFloatField
      FieldName = 'F3'
    end
    object ADODataSet1CAMARAPCAMINHAOGTR1000X20: TWideStringField
      FieldName = 'CAMARA P/CAMINHAO GTR 1000X20'
      Size = 255
    end
    object ADODataSet1F5: TFloatField
      FieldName = 'F5'
    end
    object ADODataSet1F6: TFloatField
      FieldName = 'F6'
    end
    object ADODataSet1F7: TFloatField
      FieldName = 'F7'
    end
    object ADODataSet1F8: TFloatField
      FieldName = 'F8'
    end
    object ADODataSet1F9: TFloatField
      FieldName = 'F9'
    end
    object ADODataSet1F10: TFloatField
      FieldName = 'F10'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 496
    Top = 40
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 496
    Top = 160
  end
end
